| !Run for Kiss v1.02
|  J.Beech & R.McLean
|
Set Kiss$Wimp 3
RMensure UtilityModule 3.00 Set Kiss$Wimp 2
If "<System$Path>" = "" then Error 0 System resources cannot be found
If "<Wimp$ScrapDir>" = "" Then Error 0 System scrap directory can not be found
|
| If you do not want the banner, comment out the below line
| and delete the application !Banner
|
Set Kiss$Banner 1
|
| Modules should be present, but check first
|
RMEnsure MessageTrans 0.00 RMLoad System:Modules.MsgTrans
RMEnsure ColourTrans 0.00 RMLoad System:Modules.Colours
|
Set KISS$Dir <Obey$Dir>
Iconsprites <Obey$Dir>.!Sprites
Iconsprites <Obey$Dir>.Sprites
|
| Set Relevant FileTypes & dosmaps
|
Set File$Type_040 KissCel
Set File$Type_041 KissPal
Set File$Type_042 KissConfig
Set Alias$@RunType_040 Run <Obey$Dir>.!Run %%*0
Set Alias$@RunType_041 Run <Obey$Dir>.!Run %%*0
Set Alias$@RunType_042 Run <Obey$Dir>.!Run %%*0
|
| Moved to main program
|DOSMap CEL KissCel
|DOSMap CNF KissConfig
|DOSMap KCF KissPal
|
| Banner then main program
|
If "<Kiss$Banner>" <> "" Then Run <Obey$Dir>.!Banner -nostay
WimpSlot -min 96K -max 96K
Run <KISS$Dir>.!RunImage %*0